﻿Public Class ucUsuarios

    Private Sub btnAlta_Click(sender As Object, e As EventArgs) Handles btnAlta.Click

        Dim f As New frmUsuarioAlta
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnUsuarios_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

    End Sub

    Private Sub btnModificacion_Click(sender As Object, e As EventArgs) Handles btnModificacion.Click

        Dim f As New frmUsuarioModificacion
        f.ShowDialog(Me)


        'Actualizo grilla
        'mnuPrincipal.btnUsuarios_Click(sender, e) Esto no actualizaba por cuestiones de User Control
        cn.LlenarGrilla(varUcUsuarios.dgvUsuarios, sqlConsulta)

    End Sub

End Class
